(shell-command-on-region): EXIT-STATUS can be a string.

diff --git a/lisp/simple.el b/lisp/simple.el
index a187ebbf8eabcff48b5f7aa9a93c9ff8639771ba..183f1bb2df9beb5c01d69ec38fe7a93ff6a23b3d 100644 (file)
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -1329,7 +1329,7 @@ specifies the value of ERROR-BUFFER."
                                             (list buffer error-file)
                                           buffer)
                                         nil shell-command-switch command)))
-         (setq success (and exit-status (zerop exit-status)))
+         (setq success (and exit-status (equal 0 exit-status)))
          ;; Report the amount of output.
          (let ((lines (save-excursion
                         (set-buffer buffer)